home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
001-025
/
disk_015
/
fish
/
atomize
< prev
next >
Wrap
Text File
|
1992-05-06
|
822b
|
38 lines
.Key file
; Atomizes a C program Version 1.02
failat 65535
if not exists df1:examples/<file$t1>.o
echo "File examples/<file$t1>.o does not exist. Try again."
skip END
endif
copy df1:examples/<file$t1>.o ram:<file$t1>.o
if not exists ram:<file$t1>.o
echo "File <file$t1>.o not copied to ram: Error..."
skip END
endif
echo "-- atomizing <file$t1>..."
df1:c/atom ram:<file$t1>.o ram:<file$t1>.o.TMP -cdb -pc
if not exists ram:<file$t1>.o.TMP
echo "File ram:<file$t1>.o.TMP does not exist. Error..."
skip END
endif
delete df1:examples/<file$t1>.o
copy ram:<file$t1>.o.TMP df1:examples/<file$t1>.o
if not exists df1:examples/<file$t1>.o
echo "File ram:<file$t1>.o not copied to df1:examples/
copy ram:<file$t1>.o df1:examples/<file$t1>.o
skip END
endif
delete ram:<file$t1>.o
LAB END